home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / misc / amindex.lha / AmIndex / Install < prev   
Encoding:
Text File  |  1998-07-31  |  3.6 KB  |  157 lines
  1. ; Installer script For Amindex v. 1.0
  2. ; by Marek Zvolsky 22.07.98
  3.  
  4. (complete 0)
  5.  
  6. (Message
  7.     "\n\nAmIndex 1.0 is shareware.\n\nSee the doc For more Info."
  8. ;   (ALL)
  9. )
  10.  
  11. (complete 5)
  12.  
  13. (Set #DEST0
  14.     (askdir
  15.         (prompt "Where do you want to install AmIndex? A drawer called AmIndex will be created")
  16.         (help (cat @askdir-help)
  17.         )
  18.         (default "Work:")
  19.     )
  20. )
  21.  
  22. (complete 12)
  23.  
  24. (Set #DEST (tackon #DEST0 "AmIndex"))
  25. (makedir #DEST)
  26.  
  27. (Set @default-dest #DEST)
  28.  
  29. (complete 20)
  30.  
  31. (copyfiles (dest #DEST0) (source "icons/def_drawer.Info") (newname "AmIndex.Info"))
  32.  
  33. (copyfiles (dest #DEST) (source "AmIndex"))
  34. (copyfiles (dest #DEST) (source "AmIndex.Info"))
  35. (copyfiles (dest #DEST) (source "music/med.AmIndex"))
  36.  
  37. (complete 30)
  38.  
  39. (run "Run >nil: Sys:Utilities/Multiview icons/collect")
  40.  
  41. (Set #ICONS
  42.     (askchoice
  43.     (prompt "Choose an icon For AmIndex")
  44.     (help (cat @askchoice-help))
  45.     (default 1)
  46.     (choices
  47.         "#1: Classic MagicWB 8 colors"
  48.         "#2: Star 8 colors"
  49.         "#3: Standart 4 colors"
  50.         "#4: NewIcon style"
  51.         )
  52.     )
  53. )
  54.  
  55. (If (= #ICONS 0) (copyfiles (source "icons/AmIndex_MWB1.Info") (dest #DEST) (newname "AmIndex.Info")))
  56. (If (= #ICONS 1) (copyfiles (source "icons/AmIndex_MWB2.Info") (dest #DEST) (newname "AmIndex.Info")))
  57. (If (= #ICONS 2) (copyfiles (source "icons/AmIndex_Std.Info") (dest #DEST) (newname "AmIndex.Info")))
  58. (If (= #ICONS 3) (copyfiles (source "icons/AmIndex_NI.Info") (dest #DEST) (newname "AmIndex.Info")))
  59.  
  60. (complete 47)
  61.  
  62. (Set #CATALOGS
  63.     (askoptions
  64.         (Prompt "Catalogs to install")
  65.         (help (cat @askoptions-help))
  66.         (default 2)
  67.         (choices "English (built-in)" "Czech (KOI8)" "Czech (E2)")
  68.     )
  69. )
  70.  
  71.  
  72. (If (in #CATALOGS 0)
  73.     (copyfiles (source "catalogs/english/AmIndex.catalog") (dest "LOCALE:Catalogs/english/")))
  74. (If (in #CATALOGS 1)
  75.     (copyfiles (source "catalogs/ÃeÓtina/AmIndex.catalog") (dest "LOCALE:Catalogs/ÃeÓtina/")))
  76. (If (in #CATALOGS 2)
  77.     (copyfiles (source "catalogs/çeský/AmIndex.catalog") (dest "LOCALE:Catalogs/çeský/")))
  78.  
  79.  
  80. (complete 72)
  81.  
  82. (Set #GUIDE
  83.     (askoptions
  84.         (Prompt "Guide to install")
  85.         (help (cat @askoptions-help))
  86.         (default 7)
  87.         (choices "English" "Czech (KOI8)" "Czech (E2)")
  88.     )
  89. )
  90.  
  91. (If (in #GUIDE 0)
  92.     (copyfiles (source "docs/AmIndex_eng.guide") (dest #DEST) (infos)))
  93. (If (in #GUIDE 1)
  94.     (copyfiles (source "docs/AmIndex_cz.guide") (dest #DEST) (infos)))
  95. (If (in #GUIDE 2)
  96.     (copyfiles (source "docs/AmIndex_e2.guide") (dest #DEST) (infos)))
  97.  
  98. (complete 81)
  99.  
  100. (If (exists "AmIndex.keyfile")
  101.     (
  102.         (Set #REG 1)
  103.         (Set #KEYDEST #DEST)
  104.         (If (= @user-level 2)
  105.             (Set #KEYDEST
  106.                 (askdir
  107.                     (prompt "Where do you want to install Keyfile")
  108.                     (help (cat @askdir-help))
  109.                     (default #DEST)
  110.                 )
  111.             )
  112.         )
  113.     (copyfiles (dest #DEST) (source "AmIndex.keyfile"))
  114.     )
  115. )
  116.  
  117. (complete 88)
  118.  
  119. (If (= (exists "Libs:reqtools.library") 0)
  120.     (copylib
  121.         (source "libs/reqtools.library")
  122.         (dest "libs:")
  123.         (confirm)
  124.         (prompt "\n\nInstall reqtools.library?\nOnly If You don't have it installed")
  125.         (help
  126.             (cat
  127.                 "reqtools.library is used by AmIndex For all requesters."
  128.                 @copylib-help
  129.             )
  130.         )
  131.     )
  132. )
  133.  
  134. (complete 92)
  135.  
  136. (copylib
  137.     (source "libs/medplayer.library")
  138.     (dest "libs:")
  139.     (confirm)
  140.     (prompt "\n\nInstall medplayer.library?")
  141.     (help
  142.         (cat "medplayer.library is user to play music" @copylib-help
  143.         )
  144.     )
  145. )
  146.  
  147.  
  148. (complete 99)
  149.  
  150. (If (= #REG 1)
  151.     (Message
  152.         "\n\n\nThank You for\nregister\nAmIndex1.0"
  153.     )
  154. )
  155.  
  156. (complete 100)
  157.